From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 22 Aug 2004 16:53:44 +0000 (+0000)
Subject: (font-lock-set-defaults): Use with-no-warnings.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~21318
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=4a3c7f2139640b92b54ffd5dc9f20b10a710ebe9;p=emacs.git

(font-lock-set-defaults): Use with-no-warnings.
---

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 8cb43bc0bd8..052e92391af 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -1516,7 +1516,9 @@ Sets various variables using `font-lock-defaults' (or, if nil, using
     (make-local-variable 'font-lock-fontified)
     (make-local-variable 'font-lock-multiline)
     (let* ((defaults (or font-lock-defaults
-			 (cdr (assq major-mode font-lock-defaults-alist))))
+			 (cdr (assq major-mode
+				    (with-no-warnings
+				     font-lock-defaults-alist)))))
 	   (keywords
 	    (font-lock-choose-keywords (nth 0 defaults)
 				       (font-lock-value-in-major-mode font-lock-maximum-decoration)))